home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Gigamem 3.0.adf / Install-GigaMem < prev    next >
Text File  |  1992-12-04  |  9KB  |  417 lines
  1. ; $VER: GigaMem_Install 3.0 (06.12.92)
  2. ; GigaMem Hard Drive Installation Script
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7. ; English strings
  8.  
  9. (set #ask-GigaMem-dir
  10.     (cat
  11.         "In which disk or drawer should a drawer \"GigaMem\" "
  12.         "be created where all files will be copied?"
  13.     )
  14. )
  15.  
  16. (set #ask-GigaMem-dir-help
  17.     (cat
  18.         "Here you specify, where you want to install GigaMem "
  19.         "and all support files. A drawer \"GigaMem\" will "
  20.         "be created, so you select \"DH0:\" to install GigaMem "
  21.         "in a drawer \"DH0:GigaMem\".\n\n"
  22.     )
  23. )
  24.  
  25. (set #prompt-GigaMem
  26.     (cat
  27.         "This will create a new drawer called \"GigaMem\" and "
  28.         "will copy the following files and drawers."
  29.     )
  30. )
  31.  
  32. (set #prompt-GigaMem-help
  33.     (cat
  34.         "GigaMem - is the program file.\n"
  35.         "GigaMem-Startup.info - is a startup icon for WBStartup.\n"
  36.         "GigaMem.Prefs - is the default program database.\n"
  37.         "GigaMemPrefs - is the preferences program file.\n\n"
  38.     )
  39. )
  40.  
  41. (set #bool-Startup
  42.     (cat
  43.         "\nInstall GigaMem to start automatically after reboot?"
  44.         "\n\nThis will install GigaMem-Startup in SYS:WBStartup."
  45.     )
  46. )
  47.  
  48. (set #prompt-Startup
  49.     (cat
  50.         "\nInstalling files needed for automatical startup..."
  51.     )
  52. )
  53.  
  54. (set #bool-Startup-help
  55.     (cat
  56.         "\nThis will install GigaMem-Startup in SYS:WBStartup."
  57.     )
  58. )
  59.  
  60. (set #prompt-Programmer
  61.     (cat
  62.         "Do you want to copy the files for Programmers too?\n"
  63.         "This will create a drawer \"Programmer\" and copy "
  64.         "all files needed to build an application using "
  65.         "VMem.Library."
  66.     )
  67. )
  68.  
  69. (set #prompt-Programmer-help
  70.     (cat
  71.         "\nThe directoy Programmer includes all files needed "
  72.         "to use VMem.Library for own programming projects.\n\n"
  73.     )
  74. )
  75.  
  76. (set #ask-Library-dir
  77.     (cat
  78.         "In which disk or drawer should\n"
  79.         "VMem.Library be installed?\n"
  80.         "Select Help for information on the library."
  81.     )
  82. )
  83.  
  84. (set #ask-Library-dir-help
  85.     (cat
  86.         "The VMem.Library allows applications "
  87.         "to use Virtual Memory most efficiently. "
  88.         "This ensures maximum compatibility and speed.\n\n"
  89.         "The library must be located in one of the LIBS: "
  90.         "directories so the Operating System can find it.\n\n"
  91.     )
  92. )
  93.  
  94. (set #prompt-Library
  95.     (cat "This will install\n\"VMem.Library\"\nin your System.")
  96. )
  97.  
  98. (set #ask-040Library-dir
  99.     (cat
  100.         "In which disk or drawer should\n"
  101.         "68040.Library be installed?\n"
  102.         "Select Help for information on the library."
  103.     )
  104. )
  105.  
  106. (set #ask-040Library-dir-help
  107.     (cat
  108.         "The 68040.Library is needed on systems "
  109.         "equipped with a MC68040 processor.\n\n"
  110.         "The library must be located in one of the LIBS: "
  111.         "directories so the Operating System can find it.\n\n"
  112.     )
  113. )
  114.  
  115. (set #prompt-040Library
  116.     (cat "This will install\n\"68040.Library\"\nin your System.")
  117. )
  118.  
  119. ;=============================================================================
  120. ; German strings
  121.  
  122. (if (= @language "deutsch")
  123. (
  124.  
  125. (set #ask-GigaMem-dir
  126.     (cat
  127.         "Auf welchem Gerät, in welcher Schublade soll "
  128.         "eine neue Schublade GigaMem erstellt werden, in "
  129.         "die alle Programmdateien installiert werden?"
  130.     )
  131. )
  132.  
  133. (set #ask-GigaMem-dir-help
  134.     (cat
  135.         "Sie geben hier den Ort an, wo \"GigaMem\" und all "
  136.         "dazugehörenden Dateien installiert werden. "
  137.         "Eine Schublade \"GigaMem\" wird eingerichtet, "
  138.         "Sie brauchen also nur \"DH0:\" anzugeben um "
  139.         "GigaMem in einer Schublade \"DH0:GigaMem\" zu installieren.\n\n"
  140.     )
  141. )
  142.  
  143. (set #prompt-GigaMem
  144.     (cat
  145.         "Eine Schublade \"GigaMem\" wird eingerichtet und "
  146.         "folgende Dateien werden in diese Schublade kopiert."
  147.     )
  148. )
  149.  
  150. (set #prompt-GigaMem-help
  151.     (cat
  152.         "GigaMem - Das Programm.\n"
  153.         "GigaMem-Startup.info - Startpiktogramm für WBStartup.\n"
  154.         "GigaMem.Prefs - Mitgelieferte Programmdatenbank.\n"
  155.         "GigaMemPrefs - Das Einstellungsprogramm.\n\n"
  156.     )
  157. )
  158.  
  159. (set #bool-Startup
  160.     (cat
  161.         "\nGigaMem bei einem Neustart automatisch starten?"
  162.         "\n\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
  163.         "installiert."
  164.     )
  165. )
  166.  
  167. (set #prompt-Startup
  168.     (cat
  169.         "\nKopiere Dateien, die für den automatischen "
  170.         "Start benötigt werden..."
  171.     )
  172. )
  173.  
  174. (set #bool-Startup-help
  175.     (cat
  176.         "\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
  177.         "installiert."
  178.     )
  179. )
  180.  
  181. (set #prompt-Programmer
  182.     (cat
  183.         "Wollen Sie die Dateien für Programmierer auch "
  184.         "installieren?\n"
  185.         "Eine Schublade \"Programmer\" wird eingerichtet "
  186.         "und alle Dateien, die zum Benutzen der VMem.Library "
  187.         "nötig sind, werden kopiert."
  188.     )
  189. )
  190.  
  191. (set #prompt-Programmer-help
  192.     (cat
  193.         "Die Schublade \"Programmer\" enthält alle Dateien, "
  194.         "die zum Benutzen der VMem.Library in eigenen Projekten "
  195.         "nötig sind.\n\n"
  196.     )
  197. )
  198.  
  199. (set #ask-Library-dir
  200.     (cat
  201.         "Auf welchem Gerät, in welcher Schublade soll "
  202.         "die VMem.Library installiert werden?\n"
  203.         "Wählen Sie Hilfe für weitere Informationen."
  204.     )
  205. )
  206.  
  207. (set #ask-Library-dir-help
  208.     (cat
  209.         "Die VMem.Library erlaubt Programmen, virtuellen "
  210.         "Speicher für eigene Zwecke optimal zu benutzen. "
  211.         "Dies garantiert maximale Kompatibilät und "
  212.         "Geschwindigkeit.\n\n"
  213.         "Die VMem.Library muss in einer der LIBS: Schubladen "
  214.         "sein, damit das Betriebsystem sie finden kann.\n\n"
  215.     )
  216. )
  217.  
  218. (set #prompt-Library
  219.     (cat "Installieren der \"VMem.Library\"\nim System.")
  220. )
  221.  
  222.  
  223. (set #ask-040Library-dir
  224.     (cat
  225.         "Auf welchem Gerät, in welcher Schublade soll "
  226.         "die 68040.Library installiert werden?\n"
  227.         "Wählen Sie Hilfe für weitere Informationen."
  228.     )
  229. )
  230.  
  231. (set #ask-040Library-dir-help
  232.     (cat
  233.         "Die 68040.Library wird von Systemem, die mit "
  234.         "mit einem MC68040-Prozessor ausgerüstet sind "
  235.         "benötigt.\n\n"
  236.         "Die 68040.Library muss in einer der LIBS: Schubladen "
  237.         "sein, damit das Betriebsystem sie finden kann.\n\n"
  238.     )
  239. )
  240.  
  241. (set #prompt-040Library
  242.     (cat "Installieren der \"68040.Library\"\nim System.")
  243. )
  244.  
  245. ))
  246.  
  247. ;=============================================================================
  248. ; Main 'Program'
  249.  
  250. ; ask for destination drawer or partition for GigaMem etc.
  251. (set GigaMem_dest
  252.     (tackon
  253.         (askdir
  254.             (prompt #ask-GigaMem-dir)
  255.             (help
  256.                 #ask-GigaMem-dir-help
  257.                 @askdir-help
  258.             )
  259.             (default @default-dest)
  260.         )
  261.         "GigaMem"
  262.     )
  263. )
  264.  
  265. ; at this point we have a valid destination, so we tell installer where
  266. ; the application will end up so the exit page will be correct -- also,
  267. ; the installation log file (if any) will be copied to the destination
  268. (set @default-dest GigaMem_dest)
  269.  
  270. ;copy all the program files from source to dest
  271. (copyfiles
  272.     (prompt #prompt-GigaMem)
  273.     (source "GigaMem")
  274.     (dest GigaMem_dest)
  275.     (pattern "GigaMem#?")
  276.     (infos)
  277.     (confirm)
  278.     (help
  279.         #prompt-GigaMem-help
  280.         @copyfiles-help
  281.     )
  282. )
  283.  
  284. ; Fix default tool to GigaMem's path
  285. (tooltype
  286.     (dest (tackon GigaMem_dest "GigaMem-Startup"))
  287.     (setdefaulttool (tackon GigaMem_dest "GigaMem"))
  288. )
  289.  
  290. (complete 20)
  291.  
  292. ;install GigaMem-Startup in SYS:WBStartup
  293. (if (= (exists "SYS:WBStartup") 2)    ; Drawer SYS:WBStartup exists?
  294. (if (= 1
  295.     (askbool
  296.         (prompt #bool-Startup)
  297.         (help #bool-Startup-help)
  298.     ))
  299. (
  300.  
  301. (copyfiles
  302.     (prompt #prompt-Startup)
  303.     (source "GigaMem")
  304.     (dest "SYS:WBStartup")
  305.     (pattern "GigaMem-Startup.info")
  306.     (infos)
  307.     (confirm)
  308.     (help
  309.         #bool-Startup-help
  310.         @copyfiles-help
  311.     )
  312. )
  313.  
  314. ; Fix default tool to GigaMem's path
  315. (tooltype
  316.     (dest "SYS:WBStartup/GigaMem-Startup")
  317.     (noposition)
  318.     (setdefaulttool (tackon GigaMem_dest "GigaMem"))
  319. )
  320.  
  321. )))    ; User wants to install for startup?
  322.  
  323. (complete 40)
  324.  
  325. ;copy all the programer's files from source to dest
  326. (if (<> (exists "GigaMem/Programmer") 0)    ; Programmer DevKit?
  327. (copyfiles
  328.     (prompt #prompt-Programmer)
  329.     (source "GigaMem")
  330.     (dest GigaMem_dest)
  331.     (pattern "Programmer#?")
  332.     (infos)
  333.     (confirm)
  334.     (help
  335.         #prompt-Programmer-help
  336.         @copyfiles-help
  337.     )
  338. ))
  339. (complete 60)
  340.  
  341. ; Test for existance of LIBS-USER/
  342. (set VMemLib_defdest "SYS:Libs-User")    ; Default directory Libs-User
  343. (if (<> (exists VMemLib_defdest) 2)        ; Relog Installation?
  344.     (set VMemLib_defdest "LIBS:")        ; No -> LIBS:
  345. )
  346.  
  347. ; Test for existance of USER:LIBS
  348. (if (<> (getassign "USER") "")                ; Valid assignment USER:? (avoid req)
  349.     (if (= (exists "USER:LIBS") 2)            ; Newer Relog Installation?
  350.         (set VMemLib_defdest "USER:LIBS")    ; Yes -> Use USER:LIBS
  351.     )
  352. )
  353.  
  354.  
  355.  
  356. ; Get destination for vmem.library
  357. (set VMemLib_dest
  358.     (askdir
  359.         (prompt #ask-Library-dir)
  360.         (help
  361.             #ask-Library-dir-help
  362.             @askdir-help
  363.         )
  364.         (default VMemLib_defdest)
  365.     )
  366. )
  367.  
  368. ; copy vmem.library
  369. (copylib
  370.     (source "Libs/vmem.library")
  371.     (prompt #prompt-Library)
  372.     (confirm)
  373.     (dest VMemLib_dest)
  374.     (help
  375.         #ask-Library-dir-help
  376.         @copylib-help
  377.     )
  378. )
  379.  
  380. (complete 80)
  381.  
  382. ; Copy 68040.library if on disk (68040 version of GigaMem)
  383. (if (= (exists "Libs/68040.library") 1)    ; 68040 version of GigaMem?
  384. (
  385.  
  386. ; Get destination for 68040.library
  387. (set MC68040Lib_dest
  388.     (askdir
  389.         (prompt #ask-040Library-dir)
  390.         (help
  391.             #ask-040Library-dir-help
  392.             @askdir-help
  393.         )
  394.         (default "SYS:Libs")
  395.     )
  396. )
  397.  
  398. ; copy 68040.library
  399. (copylib
  400.     (source "Libs/68040.library")
  401.     (prompt #prompt-040Library)
  402.     (confirm)
  403.     (dest MC68040Lib_dest)
  404.     (help
  405.         #ask-040Library-dir-help
  406.         @copylib-help
  407.     )
  408. )
  409. ))
  410.  
  411. (complete 100)
  412.  
  413. ;cleanup
  414.  
  415. ;done, so get out
  416. (exit)
  417.